#/usr/bin/perl -w

use Win32::API;
use Encode;
#use charnames ':full';

my $arg=shift;

my $MessageBoxA=new Win32::API('user32','MessageBoxA','NPPN','N');
my $MessageBoxW=new Win32::API('user32','MessageBoxW','NPPN','N');

my $msg="This is just a notice";
my $title="info";
$msg=Encode::encode_utf8($msg);
#$msg=~ s/(.)/x00/g;
Encode::_utf8_on($msg);
#Encode::_utf8_on($title);
$MessageBoxW->Call(0,$msg,$title,0);
$MessageBoxA->Call(0,$msg,$title,0);

sub AddTagTest{
    my $AddTagA=new Win32::API('../out/client_stub.dll','AddTagA','P','N');
    if(defined($arg)){
	$AddTagA->Call("$arg");
    }else{
	$AddTagA->Call("Hello");
    }
}
